home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
WordWorth3
/
WW3.1SE_1.dms
/
WW3.1SE_1.adf
/
Archive
/
Boot
/
Startup-Sequence
< prev
next >
Wrap
Text File
|
1994-10-21
|
1KB
|
70 lines
Addbuffers >NIL: df0: 30
FailAt 21
version >NIL: graphics.library 37
IF WARN
;less than WB2.04
echo ""
echo "Your Amiga requires Workbench 2.04 or above to run Wordworth 3"
echo "The startup will now be aborted!"
quit
ELSE
version >NIL: graphics.library 39
IF WARN
;less than WB3.0
SetPatch QUIET
ELSE
; WB3.0
SetPatch3.0 QUIET
ENDIF
ENDIF
Path >NIL: RAM: C: S: SYS:System
Resident >NIL: C:Assign PURE
Resident >NIL: C:makedir PURE
Resident >NIL: C:Copy PURE
Resident >NIL: C:delete PURE
MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
Assign >NIL: ENV: RAM:ENV
Assign >NIL: T: RAM:T
Assign >NIL: CLIPS: RAM:Clipboards
Assign >NIL: PRINTERS: DEVS:Printers
Assign >NIL: LIBS: SYS:Classes ADD
Assign >NIL: KEYMAPS: DEVS:Keymaps
IF EXISTS DEVS:Monitors
IF EXISTS DEVS:Monitors/VGAOnly
DEVS:Monitors/VGAOnly
EndIF
C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
Execute T:M
C:Delete >NIL: T:M
EndIF
C:IPrefs
SetEnv Workbench $Workbench
SetEnv Kickstart $Kickstart
UnSet Workbench
UnSet Kickstart
IF EXISTS s:User-Startup
execute s:User-Startup
ENDIF
Resident makedir REMOVE
Resident delete REMOVE
c:LoadWB
;Run the Wordworth program
cd sys:
run >NIL: SYS:Wordworth
ENDCLI >NIL: